
.
A=-24576;B=-23174;for N=Ato B;%(N)=KP;next N;%(20050)=B;:return ;goto 100
{1}null .{-102}{-95}5{-120}{-102}{-95}{-8}{-124}{-99}{-93}{-8}{-124}{-93}{-99}{-38}{-120}{-93}{-99}{-8}{-127}{-93}{-99}{-128}{-121}{-38}{-128}{-128}{-127}{-128}{-128}{-128}{-121}{-93}{-84}{-8}{-124}{-95}{-89}{-8}{-124}{-102}{-95}5{-124}{-99}{-93}5{-124}{-8}{-99}{-128}{-124}{-8}{-97}{-91}{-124}{-99}{-93}{-38}{-120}{-99}{-93}{-8}{-127}{-99}{-93}{-128}{-121}{-38}{-128}{-128}{-127}{-128}{-128}{-128}{-121}{-93}{-84}{-8}{-124}{-95}{-89}{-8}{-124}{-102}{-95}5{-124}{-99}{-93}5{-124}{-8}{-99}{-128}{-124}{-8}{-97}{-91}{-124}{-102}{-95}{-38}{-124}{-99}{-93}{-38}{-124}{-8}{-99}{-128}{-127}{-128}{-99}{-128}{-125}{-97}{-91}{-128}{-124}{-99}{-93}{-38}{-127}{-99}{-93}{-128}{-121}{-104}{-89}{-8}{-120}{-102}{-86}{-21}{-120}{-93}{-21}{-86}{-120}{-95}{-89}!{-120}{-27}N{-128}{-120}{-21}Y{-128}{-120}{9}{-61}{-128}{-120}{-104}{-99}!{-120}{-104}{-99}{-21}{-124}{-102}{-95}{-21}{-124}{-95}{-102}{-48}{-120}{-95}{-102}{-21}{-127}{-95}{-102}{-128}{-121}{-48}{-128}{-128}{-127}{-128}{-128}{-128}{-121}{-95}{-89}{-21}{-124}{-99}{-93}{-21}{-124}{-104}{-99}!{-124}{-95}{-102}!{-124}{-102}{-21}{-128}{-124}{-100}{-21}{-93}{-124}{-102}{-95}{-48}{-120}{-102}{-95}{-21}{-127}{-102}{-95}{-128}{-121}{-48}{-128}{-128}{-127}{-128}{-128}{-128}{-121}{-105}{-21}{-128}{-124}{-106}{-21}{-128}{-124}{-111}{-8}{-128}{-124}{-105}{-8}{-128}{-124}{-111}{-68}{-61}{-127}{-111}{-128}{-128}{-123}{-109}{-128}{-128}{-126}{-8}{-109}{-128}{-124}{-8}{-99}{-128}{-124}{-109}{-68}{-57}{-127}{-109}{-128}{-128}{-123}{-106}{-128}{-128}{-126}{-8}{-106}{-128}{-124}{-8}{-99}{-128}{-124}{-106}{-68}{-48}{-127}{-106}{-128}{-128}{-123}{-105}{-128}{-128}{-126}{-105}{-128}!{-124}{-97}{-128}!{-124}{-105}{-65}{-38}{-127}{-105}{-128}{-128}{-123}{-102}{-128}{-128}{-126}{-8}{-102}{-128}{-124}{-8}{-89}{-128}{-124}{-102}{-48}{-33}{-127}{-102}{-128}{-128}{-123}{-99}{-128}{-128}{-126}{-95}{9}{-128}{-124}{-84}{9}{-75}{-124}{-95}{-61}{-38}{-127}{-95}{-128}{-128}{-123}{-93}{-128}{-128}{-126}{-75}{9}{-128}{-120}{-75}{-48}{-21}{-127}{-75}{-128}{-128}{-121}{-81}{15}{-128}{-125}{-84}{15}{-128}{-125}{-81}{15}{-128}{-125}{-75}{-48}{-14}{-127}{-75}{-128}{-128}{-125}{-81}{-128}{-128}{-124}{-84}Y{-128}{-125}{-89}Y{-128}{-125}{-84}Y{-128}{-125}{-81}{-57}{-38}{-127}{-81}{-128}{-128}{-125}{-84}{-128}{-128}{-124}{-8}{-86}{-128}{-124}{-8}{-89}{-128}{-124}{-93}{-61}{-33}{-127}{-93}{-128}{-128}{-125}{-95}{-128}{-128}{-124}{-93}{-84}{-38}{-120}{-84}{-102}{-53}{-122}{-99}{-84}{-57}{-126}{-57}{-84}{-99}{-124}{-84}{-128}{-128}{-124}{-84}{-128}{-128}{-122}{-81}{-128}{-128}{-126}{-75}{9}{-128}{-120}{-75}{-48}{-21}{-127}{-75}{-128}{-128}{-121}{-81}{15}{-128}{-125}{-84}{15}{-128}{-125}{-81}{15}{-128}{-125}{-75}{-48}{-14}{-127}{-75}{-128}{-128}{-125}{-81}{-128}{-128}{-124}{-84}Y{-128}{-125}{-89}Y{-128}{-125}{-84}Y{-128}{-125}{-81}{-57}{-38}{-127}{-81}{-128}{-128}{-125}{-84}{-128}{-128}{-124}{-8}{-86}{-128}{-124}{-8}{-89}{-128}{-124}{-93}{-61}{-33}{-127}{-93}{-128}{-128}{-125}{-95}{-128}{-128}{-124}{-93}{-84}{-38}{-120}{-102}{-84}{-53}{-122}{-99}{-57}{-84}{-126}{-84}{-57}{-99}{-120}{-95}{-86}{-21}{-122}{-93}{-128}{-21}{-126}{-89}{-75}!{-120}{-78}{-89}{-8}{-122}{-78}{-93}{-8}{-126}{-95}{-75}!{-120}{-78}{-95}{-8}{-122}{-78}{-93}{-8}{-126}{-89}{-61}!{-120}{-84}{-68}{-8}{-122}{-78}{-68}{-8}{-126}{-75}{-61}!{-120}{-43}{-128}{-128}{-125}{-48}{-128}{-128}{-125}{-57}{-128}{-128}{-125}{-61}{-128}{-128}{-125}{-68}{-128}{-128}{-125}{-75}{-128}{-128}{-125}{-81}{-128}{-128}{-125}{-86}{-128}{-128}{-125}{-89}{-128}{-128}{-125}{-93}{-128}{-128}{-125}{-95}{-128}{-128}{-125}{-99}{-128}{-128}{-125}{-102}{-128}{-128}{-125}{-105}{-128}{-128}{-125}{-108}{-128}{-128}{-125}{-109}{-128}{-128}{-120}{-105}{-109}{-8}{-124}{-108}{-104}{-8}{-124}{-109}{-8}{-105}{-120}{-111}{-105}{-8}{-120}{-106}{-93}{-21}{-120}{-99}{-84}{15}{-120}{-102}{9}{-84}{-120}{-106}{-93}{-21}{-120}{-95}{-89}{-48}{-120}{-102}{-48}{-95}{-120}{-89}{-84}{-8}{-120}{-99}{-8}{-81}{-121}{-102}{-95}5{-120}{-102}{-95}{-8}{-124}{-99}{-128}{-8}{-124}{-93}{-99}{-38}{-120}{-93}{-99}{-8}{-120}{-38}{-128}{-128}{-120}{-93}{-84}{-8}{-124}{-95}{-89}{-8}{-124}{-102}{-95}5{-120}{-102}{-95}{-8}{-124}{-99}{-93}{-8}{-124}{-93}{-99}{-38}{-120}{-93}{-99}{-8}{-120}{-38}{-128}{-128}{-120}{-93}{-84}{-8}{-124}{-95}{-89}{-8}{-124}{-102}{-95}5{-120}{-102}{-95}{-8}{-124}{-99}{-93}{-8}{-124}{-102}{-95}5{-120}{-102}{-95}{-8}{-124}{-99}{-93}{-8}{-124}{-102}{-95}{-38}{-120}{-102}{-95}{-8}{-124}{-99}{-93}{-8}{-124}{-102}{-95}5{-120}{-102}{-95}{-8}{-124}{-99}{-93}{-8}{-124}{-93}{-99}5{-124}{-93}{-99}A{-124}{-93}{-99}Y{-124}{-93}{-99}for {-124}{-102}{-75}{-38}{-124}{-105}{-81}{-33}{-124}{-106}{-84}{-21}{-124}{-109}{-89}{-8}{-124}{-111}{-93}{-38}{-112}{-128}{-128}{-128}{-120}{-71}{-57}{-33}{-127}{-128}{-128}{-128}{-125}{-71}{-57}{-33}{-127}{-128}{-128}{-128}{-125}{-71}{-57}{-33}{-127}{-128}{-128}{-128}{-121}{-71}{-57}{-33}{-127}{-128}{-128}{-128}{-121}{-71}{-57}{-33}{-120}{-128}{-128}{-128}{-120}{-71}{-57}{-33}{-120}{-128}{-128}{-128}{-120}{-68}{-75}{-33}{-120}{-128}{-128}{-128}{-120}{-84}{-57}5{-112}{-1}901234567890123456789012345678901234567890123456789012345678901234567
a null clear ;BC=rnd ((3)-1)+rnd (32)mul 8;FC=BC+4+rnd (32)mul 8
goto null NT=0;A=-24574;E=-23849;CY=5;print "      FREDERIC CHOPIN";print ;print "         POLONAISE";print ;print "          OPUS 53
gosub null L=2;T=1
{120}null &(16)=49;&(21)=10;&(22)=170;for B=132to 134;for C=Ato E-2step 4
{-126}null for D=1to (%(C+3)div 256+127)div Lmul T;&(17)=%(C)div 256+127;&(18)=%(C+1)div 256+127;&(19)=%(C+2)div 256+127;next D;next C
{-125}null goto B
{-124}null A=-24574;E=-23849;next B
{-123}null A=-23850;E=-23637;next B
{-122}null &(17)=0;&(18)=0;&(19)=0;&(20)=0;clear ;:input 
null {-1}null null null 